1 POKE53282,8:POKE53283,15:POKE53284,2:POKE53280,246:POKE53281,246
2 POKE 53265,PEEK(53265)OR64
5 GOSUB 60000:POKE53280,246:POKE53281,246
10 PRINT"[147]":POKE53281,22:POKE53280,22
15 PRINTTAB(5)"[152][213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
16 PRINTTAB(5)"[221]                           [221]"
17 PRINTTAB(5)"[221]           T H E[152]           [221]"
20 PRINTTAB(5)"[221]                           [221]"
22 PRINTTAB(5)"[221] B U D G E T   R E P O R T [152][221]"
23 PRINTTAB(5)"[221]                           [221]"
24 PRINTTAB(5)"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
25 PRINTTAB(11)"[155]BY MARK GOSSWILLER"
27 PRINTTAB(13)"COPYRIGHT 1987"
30 PRINT"    PRESS RETURN WHEN READY TO PRINT  "
35 PRINT"          PRESS SPACE TO EXIT          "
40 GETC$:IFC$="" THEN40
50 IFC$=" " THEN CLOSE4:GOTO 60100
52 IFC$<>CHR$(13) THEN40
54 OPEN15,4,15:CLOSE15:IFST<>0 THEN 60300
55 PRINT"[147]":POKE53280,11:POKE53281,0
57 PRINT" WHILE PRINTING IS IN PROGRESS,PRESS"
58 PRINT"  THE SPACE KEY TO ABORT PRINTING"
59 :
60 :
70 R$=CHR$(14):OPEN4,4,0
80 PRINT#4,SPC(4)"** BUDGET REPORT **"
90 PRINT#4,CHR$(13):PRINT#4,SPC(5)"FOR MONTH [164][164][164][164][164][164][164][164][164] YEAR [164][164][164][164][164]"
100 PRINT#4,CHR$(13):PRINT#4:PRINT#4
110 PRINT#4,"         ITEM          AMT/DUE    AMT/PAID     CHECK #";
120 PRINT#4,"     DATE/PAID    BALANCE"
130 PRINT#4,"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]";
140 PRINT#4,"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
145 FORI=1TO20:IF PEEK(203)=60 THEN PRINT#4:CLOSE4:GOTO 10
150 PRINT#4,CHR$(13)"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][186][164][164][164][164][164][164][164][164][164][164][164][186][164][164][164][164][164][164][164][164][164][164][186][164][164][164][164][164][164][164]";
160 PRINT#4,"[164][164][164][164][164][186][164][164][164][164][164][164][164][164][164][164][164][186][164][164][164][164][164][164][164][164][164][164][164]"
165 A=FRE(0):NEXTI
170 PRINT#4,CHR$(13)" TOTAL EXPENSES FOR MONTH ==>    [164][164][164][164][164][164][164][164][164][164][164]"
180 PRINT#4,CHR$(13)" TOTAL INCOME FOR MONTH   ==>    [164][164][164][164][164][164][164][164][164][164][164]"
190 PRINT#4,CHR$(13)" REMAINING  FUNDS         ==>    [164][164][164][164][164][164][164][164][164][164][164]"
197 PRINT#4:PRINT#4:PRINT#4:PRINT#4
200 CLOSE4:GOTO10
60000 PRINT"[147]"
60011 PRINT"                                        ";
60012 PRINT"            [156]LOADSTAR PRESENTS            ";
60013 PRINT"                                        ";
60014 PRINT"          [149]"CHR$(34)"THE BUDGET REPORT"CHR$(34)"          ";
60015 PRINT"                                        ";
60016 PRINT"           BY  MARK GOSSWILLER          ";
60017 PRINT"                                        ";
60018 PRINT"             COPYRIGHT 1987             ";
60019 PRINT"                                        "
60030 PRINT""
60035 PRINT"  PRESS ANY KEY WHEN READY TO CONTINUE "
60037 GETA$:IFA$=""THEN 60037
60049 POKE 53265,27:RETURN
60099 END
60100 PRINT"[145]           ARE YOU SURE (Y/N)         "
60110 GETA$:IFA$=""THEN 60110
60112 IFA$="[217]"ORA$="Y"THEN 60115
60113 IFA$="[206]"ORA$="N"THEN PRINT"[145][145]";:GOTO35
60114 GOTO 60110
60115 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
60117 IFER<>63 THEN END
60120 LOAD"HELLO CONNECT",8
60300 PRINT"[147]"
60301 POKE54296,15:POKE54290,65:POKE54286,195:POKE54287,1:POKE54296,0
60310 PRINT"[158]                       "
60320 PRINT"  PRINTER (DEVICE 4)   "
60325 PRINT"                       "
60335 PRINT"   IS NOT CONNECTED    "
60340 PRINT"                       "
60345 PRINT" PRESS SPACE TO RETRY  "
60347 PRINT"                       "
60348 PRINT" PRESS RETURN TO ABORT "
60349 PRINT"                       "
60350 GETA$:IFA$="" THEN 60350
60355 IFA$=CHR$(13) THEN 10
60357 IFA$<>" "THEN 60350
60358 GOTO 54